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<< CLUB NOTES >>> 


Houston Area Apple Users Group 
APPLE BARREL 
4331 Nenana Drive 
Houston, TX 77035 


The HOUSTON AREA APPLE USERS GROUP is 
an Apple II user club, not affiliated 
with Apple, Inc., or with any retail 
computer store. HAAUG is a member of 
the International Apple Core and 
supports its purposes and 
publications. General membership 
meetings are held on the second 
Wednesday of each month in the rear 
chapel of Memorial Lutheran Church, 
5800 Westheimer, right by the Jungman 
Branch Library. They start at 6:30 
pem. An additional software swap is 
held the last Saturday of each month 
at the clubhouse of the Houston 
Amateur Radio Club, 7011 Lozier 
Street, east of the Astrodome. These 
Saturday meetings begin at 2:00 p.m. 


OFFICERS / EXECUTIVE BOARD 


President Bruce Barber 469-5805 
Vice President (vacant) 

Treasurer Ray Essig 497-7165 
Secretary James Odom 426-3970 


Software Lib. Dennis Cornwel1774-0671 
Hardcopy Lib. Leslie Doest 472-5485 
Hardware Chair David Marchand 497-7366 


Business Uses Rudge Allen 622-3979 
Membership Lee Gilbreth 342-2685 
Newsletter Ed. Ed Seeger 723-6919 


wee sa tex 


MEMBERSHIP INFORMATION 


Dues are $18.00 per 12-month period 
for regular memberships, $6.00 for 
students through high school and where 
no adult member of the family is an 
Apple user. Please make checks 
payable to “Houston Area Apple Users 
Group," and mail to Lee E. Gilbreth, 
Membership Chair, 3609 Glenmeadow, 


Rosenberg, TX 77471. This includes a 
subscription to APPLE BARREL, which is 
published nine times a year. 
Newsletter exchanges with similar 
clubs are invited. 


APPLE BARREL REPRINT POLICY 


Unless otherwise indicated within the 
program or article, any ORIGINAL 
Material published herein may be 
reprinted without permission by any 
non-profit Apple club, group or 
newsletter, PROVIDED proper credit is 
given to the APPLE BARREL and the 
article or program author. 


SPECIAL INTEREST GROUPS 


Members who share a common interest 
are encouraged to form Special 
Interest Groups to more fully explore 
their fields. Meetings may be 
arranged by common consent of the 
group and will ordinarily have one 
member who serves to coordinate or 
convene the meetings. If you would 
like to start a group around any given 
interest, please contact one of the 
club officers. If you would like to 
be in touch with others who share one 
of the following interests with you, 
please phone the coordinator. 


Current groups are: 


1) BUSINESS APPLICATIONS 
Coordinated by Rudge Allen, 
622-3979 


2) PASCAL USERS 
Directory being assembled 
Pat McGee coordinating, 
663-6806 
This Special Interest Group is 
to meet and discuss aspects of 
Apple's Pascal language and to 
exchange programs. 


3) MODEM USERS 
Directory being assembled 
Herb Crosby coordinating, 
497-1061 


4) HAM RADIO OPERATORS 
Coordinated by Ed Seeger, WB5PTW 
723-6919 


5) NEW MEMBERS 
Coordinated by Lee Gilbreth, 
342-2685 


6) EDUCATIONAL APPLICATIONS 
Coordinated by Darrell Kachilla, 
498-0186 


7) BEGINNERS' PROGRAMMING 
Coordinated by John C. Whiteman, 
794-7267 (home) 
This Special Interest Group is 
to meet and discuss Integer Basic 
and Applesoft. 


8) FILE CABINET 
Coordinated by Lee Gilbreth, 
342-2685 
Purpose is to understand, expand 
and enhance the File Cabinet 
program. 


APPLE BULLETIN BOARD SYSTEM 


The Houston Area Apple Users Group 
supports an ABBS evenings and 
weekends, 6:00 pm through 8:30 am, and 
all weekend long. Feel free to 
sign-on and place your want-ad, 
meeting notice, request for help, 
Aggie joke, etc. Any ASCII terminal, 
Apple computer or not, with suitable 
modem or coupler, will give you ABBS 
capability. Call: 


713/654-0759 


SYSOP is Rudge Allen, 622-3979. 


‘THE WALL STREET JOURNAL 


“No, Baxter, you're not being replaced by a 
computer, only a silicone chip.” 


Apple Fervor 
Puts Brokers 
On the Spot 


By Tim Metz and PAUL BLUSTEIN 
Staff Reporters of THE WALL STREET JOURNAL 

Every speculator in hot new issues wants 
a bite of Apple—Apple Computer Inc.—but 
most will be lucky to get even a bit. 

The personal computer manufacturer's 
first public sale of stock seems likely to be- 
come one of the hottest offerings of all time. 

“Our phone has been ringing,” a Minne- 
apolis broker says. ‘Sometimes it'll be peo- 
ple who may have had accounts with us in 
the past. Sometimes it’s people wanting to 
open new accounts. All of a sudden they 
want to be friendly. They want a couple of 
hundred shares of Apple.” 

Says Dan Mandresh, a securities analyst 
at Merrill Lynch, Pierce, Fenner & Smith 
Inc.: “Even my brother, who invests in the 
stock market only on Tuesdays in Leap 
Year, called the other day to ask what I 
know about Apple Computer. I said, ‘My 
God, Marty, not you, too!’ Mr. Mandresh 
says he knows little about Apple. 

A date hasn’t been set for the Apple stock | 
sale. Lately, share prices of nearly all 

companies in 
the _ personal- 
computer busi- 
ness have hit 
record levels. 
New issues of 
computer and 
other high-tech- 
nology _stocks 
sold publicly in 
the past 12 
months have 
soared in price 
by as much as 
50% or more 
Computer zr: ital o 

fering prices. 

The demand for Apple is especially keen 
because the company ranks with Tandy 
Corp., maker of the Radio Shack’s TRS 
model personal computers, as a leader in 
the industry, Some people expect Apple 
sales to reach $300 million next year from 
some $150 million this year and only $7 mil- 
lion two years ago. 
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All but a minority of would-be Apple buy- 
ers seem likely to come away from the pub- 
lic offering empty-handed. The supply is ex- 
pected to be so scant that brokers already 
are devising allocation methods. At the Min- 
neapolis broker's office, for example, cus- 
tomers’ men will draw straws to determine 
who gets the office's allocation. The inves- 
tors who do get to buy the stock are likely to |" 
be well-heeled customers of long standing. 
Good Customers Favored 

“Those who give us the business get the 
business,” says Charles Ness, a broker for 
Shearson Loeb Rhoades Inc. in Seattle. “A 
client who's done a good bit of business with 
us is given first crack at a hot new issue.” 


Another broker insists that a customer's 
“style,” not just the size of his account, will 
influence his chances to get Apple. The bro- 
ker, Randy Estes, with E. F. Hutton & Co. 
in San Diego, says that if he gets any shares 
to sell, ‘‘I'll go to the people who'll buy any 
new issue. The ones who are with you 
through thick and thin.” 


Complaints Likely 

Some unsatisfied customers are likely to 
complain. If they can’t buy Apple in the pub- 
lic offering, they'll have to buy it afterward 
in the secondary market, presumably at a 
much higher price. 

William M. LeFevre, investment policy 
vice president at Purcell Graham & Co., a 
smaller Wall Street securities firm, recalls 
some irritated customers following a. hot 
new issue, Wang Laboratories, back in 1967. 
“I was allotted only five shares,” he says, 
“and I decided to sell all five to one of my 
best customers. But he was a loudmouth. 
When the stock shot up to $50 from an issu- | 
ing price of $10, he told people at the golf 
club that he had 500 shares. Word got 
arouid and my other good customers asked 
how I could get 500 shares for a simpleton 
like him and couldn't get any for them.”’ 

For big institutional investors, the 
jockeying for chunks of Apple won't begin 
until Apple files its preliminary prospectus 
describing the terms of its offering with the 
Securities and Exchange Commission. The 
filing could come any day. “It's safe to say 
that everybody is going to be able to find 
some money to buy Apple stock,” says Man- 
own Kisor Jr., senior investment officer at 
Detroit Bank & Trust Co. 


Nautilus Fund Purchases 


More Apple Computer Stock 
BOSTON—Nautilus Fund, a closed-end 
unit investing in so-called emerging compa- 
nies, says it bought another 20,000 shares of 
Apple Computer Inc., expected to be a hot 
stock when its shares go public later this 


The latest purchase, like the others was a 
private transaction. It increases Nautilus's 
holding in Apple to 180,000 shares. Price of 
the latest batch was $8.25 a share. 

Nautilus, managed by Eaton & Howard, 


Mum’s the Word. 

Distinctly worried over the hoopla are 
Managers at the prestigious investment 
banking firm of Morgan Stanley & Co., 
which is expected to become the lead under- 
writer of the Apple issue. Although Morgan 
declines to comment, the firm tacitly ac- 
knowledged that it is being besieged with in- 
quiries about Apple. It sent its staffers a 
memo the other day pointing out that under- 
writers for the issue haven't yet been 
named, and that any comment about Apple 
is inappropriate. Morgan’s fear is that all 
the chatter over Apple might smack to the 
SEC of unlawful touting, or blue-skying. 

Veteran Wall Street securities men worry 
that demand could push Apple’s offering 
price or later prices to unrealistically high 
levels, 

“We're getting into the silly season,” the 
Tucson broker says of the new-issue market. 
“It's really getting wild.” 

Mr. LeFevre, comparing the demand for 
Apple with other alluring things, observes 
that “it could turn out that the anticipation 
is so much better than the realization.” 


Reproduced from 


The Wall Street Journa 
1980 


October 10, 


‘THE WALL STREET JOURNAL, 45, 
Wednesday, Oct. 1, 1980 


Vance Sanders Inc., said that it is boosting 
the carrying value of all 180,000 shares to 
$8.25 each from $2.625. Overall, Nautilus 
says, this will add about $1.25 a share to the 
fund's net asset value. 

As of June 30, the fund’s net asset value 
was $17.66 a share. 

Because the Apple shares aren’t publicly 
traded, Nautilus said, their value is based 
on the fund’s ‘best judgment,” rather than 
market price. Apple plans a $25 million of- 
fering in November or December. 


FILE CABINET FARTIALLY EXPOSED 


In the heart of FILE CABINET are two subroutines which, if understood, should 
dispell much of the mystery from this popular program found in our club Software 
Library, These routines are called upon sixteen times directly and countless 
times indirectly during 3 full running of the program, This is no small wonder, 
for they are the SAVE FILES and READ FILES of the data management system which 
has the disk drive hopping back and forth saving and retrieving text files, 

Since both routines are mirror images of each other, they should be viewed 
together: 


4280 REM * * * SAVE FILES * * * 4116 REM * * * READ FILES * * ® 
4296 IF F< >"INDEX“ THEN FF = 4 4126 IF F< >*INDEX* THEN FF = 4 
436G PRINT DS"OFEN"DES" "F¢"FILE"™ 4136 PRINT DS"OPEN“DES" “FS*FILE* 
431@ PRINT D#"WRITE*DES" "FE"FILE"™ 414 PRINT D$"READ"DES" “FS*FILE* 
432@ PRINT NR 4156 INPUT NR 

433@ FOR J = 1 TO NR 4166 FOR J = 1 TO NF 

4346 ON FF GOTO 4296 4176 ON FF GOTO 4236 

42356 FOR I = 4 TO NH 4186 FOR I = 4 TO NH 

4366 PRINT N$CJ.I> 4196 INFUT N$CJ,I> 

4376 NEXT I ; 4216 NEXT I 

4330 GOTO 4468 4226 GOTO 4246 

4398 FRINT R#¢J> 4236 INPUT R$<¢J) 

4466 NEXT J af 424@ NEXT J 

4416 PRINT D$"CLOSE* 4256 PRINT D#*CLOSE* 

4420 FF = @ 4266 FF = @ 

443@ RETURN 4270 RETURN 


The titles and line numbers are naturally different and where one WRITES the 
file the other READS it, The act of writing is through the PRINT command and the 
act of Treading is through the INPUT Command, The varibles used above are! 


Fe = Type of File (eg, BRSENANE, HEADER, INDEX, etc 

FF = Flag for type of Array stored (eg, G=one-dimension,4=two dimension) 
DBS = Name of Data Base 

NR Number of Records (data elements following) in the Text File 

NH = Number of Headers that make up a Record 

R$(J> = Data Array (one dimensional) 

N$¢CJ,I> = Data Array (two dimensional) 


All text files of FILE CABINET are of the Sequential type, (See DOS Manual.) 
The first informational element stored will always be the total number of Record 
elements expected to follow, Files therefore, graphically look like this: 


TEXT FILE NE R#(41> RE(2> ... RECID 2... RECNRD 
ILE 7 Het H#2 see H#7 

DATABASEFILE 3 DE#1 DE8Z DBS 

RPTNAMEFILE 4 RN#1 °° RNEZ nee RN#4 


Actual Record data is stored in the same manner, Illustrated below would be 
a three header file with four Records of information: 


TEXT FILE NR N4¢1,4) NS(1,2>) NEC1,3) N$(2.4) 1... NECI,LID 


wee NECK 


NH> 


INDEXFILE 12 R#4,Hi R#1,H2 R#L,H3 R#2,H4 see R#4,H3 


Even the REPORT FORMAT File follows the same pattern, It signals the total 
number of data elements to follow and then stores them in blocks of three, 
The example below would be for a Report Format File containing five headers: 


NS K(1) KC2) KC3)...KCI-2) KCI-4) KCID...KC3*RH-2) K(3*RH-2) K(3*RH) K(@) KCNR> 


TOTAL 


The number "Ng" states how many elements are in the file, The K(1) element con- 
tains the Header Number for the first Column in the report, The K(2) element 
gives its Tab Location and the K(3) element determines if it is to be included 
in the Totaling schewe (@ = Not to be Totaled, 4 = Include in Totals). After 
all Headers are positioned in the report, the K(@) Flag triggers the Grand 
Totaling process (@ = Make no Totals, 1 = Make Totals), Element K(NR> iS tacked 
on at the end to give the Tab Location for TOTAL in the report, 


Of course there is a lot more to FILE CABINET than comprehending the basic 
Structure of its Text Files, In time, we shall stuay other aspects of the 
program and expose all, <<< Lee Gilbreth >>> 


WANT TO BUY AN APPLESOFT ROMCARD for a low to reasonable 


price. 


Fred Fuchs, 749-3235 or 781-6968. 


<<< WATCH THIS SPACE! >>> 


Coming very soon in your NOVEMBER APPLE BARREL is more 
Pascal notes from Pat McGee; CCA Data Management System 
Version 5.2 Upgrade memo; information on the UCSD Pascal 


Users Group Library (which we have on disk ready for 
distribution!); and the usual assemblage of notes, code and 
ads that make life worth living. 


In the DECEMBER APPLE BARREL, look for a full review 
of the "almost perfect" MAGIC WAND word processor, which is 
now implemented under CP/M on the Apple! This is a program 
which, like Visicalc, is by itself sufficient reason to own 
an Apple. We will also bring you a holiday gift of good 
programming from other Apple-oriented newsletters from 
throughout the country. 


USING THE BACKSPACE AS A DELETE KEY 
by Kevin Winter 


The following program takes advantage of the zero page location $38-39, which 
contains the vector to a user’s key-in routine (default = $FD41B). The program is 
locatable anywhere in memory and is only 26 bytes long, The simple format will 
allow anyone to extend the program to add any number of special functions, 


I used the mini-assembler to enter the following code: 


5466: BIT scaae CHECK FOR KEY PRESSED 
5003: EPL #399 IF NOT PRESSED GOTO $340 
5065: STA ($28), GOT KEY - PUT ON SCREEN 
5ee7: LDA $caga PUT KEY INTO ACCUMULATOR 
S@6A: BIT $0418 CLEAR KEY STROBE 


Sead: CMP #89 IS KEY A BACKSPACE 
S@QF: BEQ $312 IF NOT GOTO $312 
5@11: RTS IF YES RETURN TO NORMAL INPUT 
5@12: PHA PUSH BACKSPACE INTO STACK 
5413: LDR #Ae LOAD ACCUM WITH A SPACE 
S5@15: DEY DECREMENT SCREEN POSITION 
5616: STA ($28>,.¥ STORE SPACE ON TOP OF BAD CHARACTER 
5618: PLA PULL BACKSPACE FROM STACK 
5@19: RTS RETURN TO NORMAL INPUT 
To use routine with DOS you need: 
5028: PHA SAVE ACCUM TO STACK 
5@21: LDA #$80 STORE LOW BYTE ADDRESS 
5@23: STA $33 IN $38 (KEY-IN YECTOR> 
5625: LDA #$56 STORE HIGH BYTE ADDRESS 
5827: STA $39 IN $39 <KEY-IN YECTOR> 
5@29: JSR $H3EA GOSUB TO DOS HOOKS 
5@2C: PLA GET ACCUM FROM STACK 
5a2D: RTS RETURN TO MONITOR/BASIC 


Or one can use this entry: 


5a9@: 2C 94 CO 19 FB 91 28 AD 
5898: @8 C@ 2C 18 CH C9 88 FA 
5018: @1 69 48 AI AG 88 91 28 
5818: 63 66 

<To use with pO5> 
5926: 48 AI 64 85 38 AY Se 85 
5428: 39 20 EA 63 68 6H 


To activate the function, if you use code $599@-5019, just enter ’*33: @@ 50’ 
into the Monitor, which is the address of the code, Then you can use DELETE in 
machine cod2 or enter BASIC and it will work, If you have a disk, you will need 
the code $582@-582D, by entering *«5@20G’ if in Monitor, or “CALL 20512’, if in 
BASIC. 


The ides for this article came rom *CP/M Backspace Mog’ by Red Hallen (pg 43 
AVG 8G issue OF Kilobaud/Micro), 


A BRIEF REVIEW OF THE MOUNTAIN HARDWARE MUSIC SYSTEM: 
Incredibly disappointing. 
A SOMEWHAT LESS BRIEF REVIEW OF THE MOUNTAIN HARDWARE MUSIC SYSTEM: 


It is pathetically obvious that this product was released before it 
was finished. I find it hard to imagine that a normally reputable 
company like Mountain Hardware could not know about the major bugs and 
shortcomings in the manual and especially the software. After buying 
this product because of their reputation, I will never again buy a 
Mountain Hardware product without examining it in detail first. Well, 
enough moaning, on with the review. 


First, the hardware: Its great. It sounds excellent when compared 
with an ALF system. The system comes with several instruments 
preprogrammed. The organ really sounds like an organ. A real pipe 
organ sounds better, but the MusicSystem could hold its head up among 
moderately priced home organs. 


Now, the software. This is really a mixed bag. If you were looking 
just at the specifications, it would look great: input from keyboard, 
light pen, or paddles; ability to input dynamics and accents; ability 
to input chords; ability to play different parts with different 
instruments; etc. It all sounds great. And, if you have a semi- 
infinite amount of patience, it is. And therein lies almost the 
entirity of my disappointment. It takes so long to do each and every 
little thing that it isn't fun. Even just putting in notes takes long 
enough .to be annoying. The wait after you decide to play something 
until the music starts can be downright Bei teine: When I had a set 
of ALF boards, I had to force myself to work instead of playing with 
the music stuff. Now, with the Mountain Hardware MusicSystem, I have 
to force myself to use the music stuff instead of working. And that 
makes for a lousy toy. 


I won't mention the many bugs that I have found in the software and 
the manual, except to say that most are glaringly obvious, and show a 
total disregard for anyone who should ever have to actually use this 
product after they have bought it. 


Why haven't I sold mine yet? Well, mostly because of faith. Faith in 
Mountain Hardware that they will fix the obvious defects (because they 
won't sell many more if for nothing else), and faith in the Users 
group that Mountain Iardware is starting and supporting. This is too 
good a piece of hardware to be saddled with such a lousy software 
driver for long. However, if someone offers me a good price now, I'd 
probably take it. 


Recommendation: If you want a great sounding music system and think 
you have the patience of Job, think about getting one now; but try to 
do some real music on it before you buy. Or, wait six months and see 
what changes have come down the road on the software. If you can't 
wait six months and want a music system to have fun with rather that 
serious work, consider the ALF system. It is fun. 


Pascal Problems 
by Pat McGee 
FP.O.Box 20223 
Houston, Texas 77025 


This is a list of problems I have had using the Apple Pascal system. Some 
are outright buss, while others are problems caused by poor documentation. 


Lons Intesers: 

I expected them to work just like resular intesers, except hold bigsser 
numbers. They don’t. In some places they do, in others they cause 
compilation errors, and sometimes they just plain don’t work. 


They do work as expected in most arithmetic expressions and a parameters 
ta functions and procedures. 


Trving ta have a function return a value of type longs inteser causes a 
compilation error. The Apple Hot Line said that this was a limitation that 
had net been documented, not a bus. Lona integers are similar in internal 
format to strings, and strings cannot be used in this manner. 


There are several buss invelvins longs integers. 
1. Typing a 10 disit number when the system is executins 

Read(input,1I) where ItInteser([9] 

usually causes the system to crash. The only way to recover is to reboat. 

2. Sometimes,» keying in any number when the system is trying to read a long 
inteser will cause it te #STK GFLOW* and reinitialize itself. I haven’t 
found exactly what things work and what don‘t. 
3. The expression TRUNC( Adr - 3276 ) where AdrtInteser 
causes *#STK OFLOW#, but TRUNC( Adr - 16384 - 14384 ) does not. 


Mod Function: 

This does not work properly. Jensen & Wirth (p13) state that 
A Mod B = A-((A div B)#B). 
However, in Apple Pascal, it is implemented as 
A mod B= [AI-CCIAL div B)#B), 
This can be seen by looking at -1 mod 2. This is particularly bad when 
looking at the definition of modulo munbers from back in high school. I was 
tausht that if A mod B= C then (A+B) mod B was alse = C. The implementation 
does not match this. 


Arctangent Function ATAN: 
This function returns the wrongs ansle for tangents less than -1. Use the 
followins code when you want to use this: 
If Tangent < 0 then 
Angle == -Atan(—Tangent) 
Else 
Ansle i= Atan(Tangent)3 


For Loops? 

Iwas trvins ta time a for loop, so I typed int 
Writeln(output, “BEFORE LOOP’) 
For i ?= 0 to 327467 do (nothins)$ 
Writeln(outeut, “AFTER LOOP? )3 

The computer printed "BEFORE LOOP", then I waited» with cocked 
stopwatch. After a while, I decided an alarm clock would be a more 


10 


appropriate instrument. Even later, I was considerins a calendar. Well» 
back to the drawing beard. Changing 32767 to 32766 produced a nice auick 
loop, but changing it back te 32767 caused another infinite wait. 
Apparently, the compiler designers blew it. The value of I should have 
been checked asainst 32767 before being incremented, or the increment should 
have checked for overflow. 
To avoid the problem, either use 32766 or do the followings: 
Const Max = 32767 
Tree LoopControlState = (looping, thruds 
Var StatetLoorpContralStates 
It Inteser 
Besin 
I t= OF State 
Repeat 
{ Whatever } 
If I < Max then I t= I+1 else State '= thrus 
Until State = thrus 


looping3 


I use this instead of any for loop, because it is more versitile, and 
because it works in all cases. There are other reasons involving the use of 
variables that do not so autside the specified range. 


- qd 
Filer WChat Command? 

This command tells you the name of the workfile and whether it has been 
saved or not. In a single drive system, it works file. But, if vou Glet a 
file fram a different disk drive than you booted fram, do somethings to it, 
then S(ave it back to the other disk,» the W(hat command thinks that the 
workfile has not been saved, when in fact it has been. 


\ 
Filer T(ransfer Command: 

If vou have two disks in the system at the same time and they have the 
same name, DON’T USE THE T COMMAND! !!!!!! You will wipe out part of at least 
one disk!. The filer gets very confused under these circumstances, and is 
apt to wire out the disk you are transferring from, as well as the one vou 
are transferring ta. Furthermore, vou sometimes don’t find out until later 
dust which files are messed up. They will look just fine in the directory, 
but the contents will be so much garbage. 

If you must to this, first chanse the name of one of the disks, do the 
transfer, then change the name back to the original. The manual says (once» 
in a very obscure place which I can’t find again) not to put in two disks 
with the same name, but doesn’t say why. 

Another problem I had was in using the T command to transfer several 
files from one disk to another. When I keved in 
T AMF:T.=. TEXT, AMFBACK: $ 
I sot the messse DESTROY AMFBACK:? (Y/N) 

I don’t know what would have happened if I had said ves because I never had 
the suts to try it. 


System Library: 

Several times I have seen the message? 
REGUIRED INTRINSIC(S) NOT AVAILABLE 
when trvings ta R(un or E(xecute a prosram. I soon found out that 
SYSTEM.LIBRARY had te be in the system. However, this was not the complete 
answer as I found out when I put a disk with it in #4 and tried again. As it 
turns out vou MUST boot from a disk that has the library on it. If vou boot 
from a disk without it, then put in a disk with it. the system can’t find it. 
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appropriate instrument. Even later, I was considering a calendar. Well» 
back to the drawing board. Changing 327467 ta 32766 produced a mice quick 
loop, but changing it back to 32747 caused another infinite wait. 
Apparently, the compiler designers blew it. The value of I should have 
been checked asainst 32767 before being incremented, or the increment shauld 
have checked for overflow. 
To avoid the problem, either use 32766 or do the followins: 
Const Max = 32767 
Type LoopContralState = (looping, thru)$ 
Var StatetLoopControlStates 
I: Inteser 
Besin 
I t= O63 State *= looping; 
Repeat 
{ Whatever } 
If I < Max then I t= I+1 else State #= thru; 
Until State = thrus 


I use this instead of any for loop, because it is more versitile, and 
because it works in all cases. There are other reasons involving the use of 
variables that da not sa cutside the specified range. 
tek q 
po a -maitp lactams 
Filer W(hat Command: 1 »; 

This command tells vou the name of the workfile and whether it has been 
saved or not. In a single drive system, it works file. But, if vou Glet a 
file from a different disk drive than vou boated from, do somethings to it» 
then S(ave it back to the other disk, the W(hat command thinks that the 
workfile has not been saved,» when in fact it has been. 


Filer Transfer Command: 

If vou have two disks in the tem at the same time and they have the 
same name, DON’T USE THE T COMMAND ''! You will wire out part of at least 
one disk!. The filer sets very confused under these circumstances» and is 
apt to wipe out the disk vou are transferring from, as well as the one you 
are transferring to. Furthermore, you sometimes don’t find out until later 
dust which files are messed up. They will look just fine in the directory, 
but the contents will be so much garbage. 

If you must ta this, first change the name of one of the disks, do the 
transfer, then chanse the name back to the original. The manual says (once» 
in a very obscure place which I can’t find again) not to put in two disks 
with the same name, but doesnt say why. 

Another problem I had was in using the T command to transfer several 
files from one disk to another. When I keved in 
T AMF: T.=. TEXT, AMFBACK: 

I sat the messse DESTROY AMFBACK:? (Y/N) 
I don’t know what would have happened if I had said ves because I never had 
the suts to try it. 


System Library® 

Several times I have seen the message! 
REQUIRED INTRINSIC(S) NOT AVAILABLE 
when trving to R€un or E(xecute a program. I soon found out that 
SYSTEM.LIBRARY had to be in the system. However, this was not the complete 
answer as I found cut when I put a disk with it in #4 and tried again. As it 
turns out vou MUST boot from a disk that has the library on it. If you boot 
from a disk without it, then put in a disk with it, the system can’t find it. 


‘ll, 


This is documented in the manual, but only in a discussion of makings a | 
new library file. This is a place a beginner would nat look at» and I | 
skipped it my first few times throush the manual. It should be in the 
section on E(xecute also. 


Assembler?! 

When doings a forward branch ( not a jump ), the listing does not 
properly reflect the contents of the code file. When the branch is 
pracessed, the listing reads, for example: 

DSBEA! FO##* BEG $1 

A few lines later, when the lobel is defined, the listings reads 
DZEA#00 

It should read 

DBZEB#0OS 

Both the address and the contents are wrongs. 


Editor: 
When in Delete made and deleting off the bottom of the screen, the 

editor rewrites the screen starting with the next line to be deleted at the 
tor. It then blanks out the first 3 characters of that line and positions ! 
the cursor te the first blanked out character. These three characters have 
not been deleted, but the editor makes it look like they have been. Until I 
found out that everythings was OK, I used to panic and ESC out of the delete 
and start over. This is not necessary, as they have not been deleted. 


Conclusion? 

This is not all the complaints I have with the Apple Pascal system, but a 
all the others involve the poor documentation or things that I would have 
designed differently. Most of the documentation prablems I expect to be 
cleared up when Jef Raskin and his crew write a manual. The current manual 
was copied mostly verbatim from the UCSD Pascal manual,» and almost all af its 
problems stem from that source. 

If vou have encountered a problem not in this list, Please tell me (and 
Apple) about it. Hopefully we can work out a way to avoid it and keep others 
from wasting much effort findings the same buss over again. 
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(# ALWAYS WONDERED HOW YOU COULD GET TO THE SYSTEM DATE STORED ON THE DISK 
BY THE F)ILER D)ATE COMMAND? WELL. HERE IT IS #) 


C$: 1979 br John Strait. Copvina for non-profit use OK} 
(# Copyright 1979 by John St t, Three Rivers Computer Core. 
May nat be sold for profit. Copring for nonprofit use CK. #) 


(# ADAPTED FOR STAND ALONE USE BY PAT MCGEE, S SEPT 1960 #) 


PROGRAM GETDATES 
VAR 
RAWDATE ! STRINGC 
NICEDATE : STRINGC? 


PROCEDURE INI TDATES$ 


CONST 
BLOCKNR = 23 
UNITNR = 43 
ELEMENT = 113 
BYTES = 223 
TYPE DATE = PACKED RECORD 
MONTH: 1... 123 
DAY: 1i.. 315 
YEAR: © .. 993 


END; € date } 


DATES 
PACKED ARRAY C1 .. ELEMENT] OF DATES 
MONTH! STRINGCS13 { Month name } 


BEGIN (# INITDATES *) 


RAWDATE 
NICEDATE 


“YY/MM/TID § (# ASSIGN ANY STRING, WILL *) 
“DO MMM YY“s (#BE REPLACED BY INDIVIDUAL CHARS *) 


UNITREAD (UNITNR, BUFFER, BYTES, BLOCKNR)3$ 
TODAY := BUFFER CELEMENT1$ 
WITH TODAY D0 BEGIN 
RAWDATEL 1] f= CHR((YEAR DIV 10) + 46)3$ 
RAWNATEC 2] HRCCYEAR MOD 10) + 49)3 
RAWDATEC 31 17s 
RAWNATEC 41 CHRC(MONTH DIV 10) + 48)3 
RAWDATEL 5] = CHRCCMONTH MOD 10) + 4&)3 
RAWDATEL 41 ti Ase 
RAWDATEL 7] RC(DAY DIV 10) + 46)3$ 
RAWNATEL 817 HRCCMAY MON 10) + 4&)3 
ENDs € WITH TODAY 3 


CASE TODAY.MONTH CIF 
2 MONTH == *JAN‘3 
MONTH #= “FERS 
MONTH 4 
MONTH 
MCINTH 
MONTH 
MCINTH = 


.&2 MONTH 
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9: MONTH & 
10: MONTH 
112MONTH : 
2IMONTH == “RECS 
END (# CASE #)$ 


NICEDATEL 17 & 
NICEDATEL 2) 
NICENATEL 31 
NICENATEL 4) 
NICEDATEC 5] 
NICEDATEL 
NICEDATEL : 
NICEDATEL S&S] : 
NICEDATEL 91] : 


RAWDATE £713 
RAWDATE C&73 
MONTH C115 
MONTH [C213 
MONTH C3 


= RAWDATE C1ds 
= RAWDATE [215 


END (# INITDATES #)$ 


BEGIN (# MAIN #) 
WRITELNS 
INITDATES$ 
WRITELN(RAWDATE ) $ 
WRITELN(NICEDATE) 


END. 


<<< SCREEN CREATE >>> 


by Bruce Barber 


SCREEN CREATE is the "poor man's graphics 
tablet." This program will create high resolution graphic 
screens for use as signs or as backgrounds for hires games. 
Existing hires graphics can be loaded and modified. The 
program is self-documenting. At any time press 'H' for 
Help on commands. 


As it is listed here, much of the programming IS for 
documentation. It is well-worth taking time to key it all 
in, for it then becomes instantly available with the 'H' 
command. It takes a little while to learn the command 
language, so the Help feature is an assset that will bring 
faster and more satisfying results. 


Although all the features of a full graphics pad are 
by no means included, you do find here the basics of 
coordinate plotting, area filling, color selection, line 
drawing, etc. With care and imagination, it is possible to 
generate graphics of surprising sophistication. 


One thoughtful feature is the flickering Grid to 
indicate distances of 20 points. The esc-G command toggles 
this coordinate system on and off, enabling the plotter to 
find the way when needed. In addition, your X-Y location 
is always read out to you when you enter the Help command. 


"Random Lady With Moustache," anyone? 
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SCREEN CREATE 
2 LOMEM: 25000 
3 D$ = "": DIM X18(300) ,Y18(300): 
DIM H$(10):C = 3:IC = 0: HOME 
: GOSUB 62000: HONE 
5 X$ = 140:¥% = 96: HGR2 : TEXT : 
GOSUB 61000: HGR : TEXT 
145 POKE - 16368,0:GG = 0: GOSUB 
10000 
isp IF PEEK ( - 16384) > 127 THEN 
161 IF GG = 1 THEN POKE - 1629 
9,0:GG = 2: GOTO 160 
162 IF GG = 2 THEN POKE - 1630 


0,0:GG = 1: GOTO 160 
163 GOTO 160 


170 A$ = CHR$ ( PEEK ( - 16384) - 
128): POKE - 16368,0 

171 IF ES% = 1 THEN GOTO 300 

173. IF A$ = CHRS$ (27)\THEN ES% = 
1: GOTO 160 

175 IF A$ = "U" THEN GOTO 5000 

180 IF A$ = "D" THEN GOTO 5030 

185 IF A$ = "R" THEN GOTO 5090 

187 IF A$ = “H" THEN 6000 

188 IF A$ = "O" THEN C = 5: HCOLOR= 
C: GOTO 160 

189 IF A$ = "X" THEN C = 6: HCOLOR= 
C: GOTO 160 

190 IF A$ = "L" THEN GOTO 5060 

191 IF AS = "W" THEN C = 7: HCOLOR= 
C: GOTO 160 

192 IF A$ = "B" THEN C = 0: HCOLOR= 
C: GOTO 160 

193 IF A$ = "G" THEN C = 1: HCOLOR= 
C: GOTO 160 

194 IF A$ = "V" THEN C = 2: HCOLOR= 
C: GOTO 160 

195 IF A$ = "1" THEN GOTO 5120 

196 IF A$ = "2" THEN GOTO 5170 

197 IF A$ = "3" THEN GOTO 5210 

198 IF A$ = "4" THEN GOTO 5260 

199 IF A$ = "P" THEN GOTO 30000 
200 IF A$ = CHRS$ (8) THEN 5400 

202 IF A$ = "M" THEN RE = 0: GOTO 
25000 

204 IF A$ = "C" THEN 26000 

206 IF A$ = "#" THEN 24000 

298 GOTO 160 

300 ES% = 0 

305 IF A$ = "L" THEN GOTO 60000 


307 IF A$ = "G" AND GG = O THEN 
GG = 1: GOTO 160 

308 IF A$ = "G" AND GG > 0 THEN 
GG = 0: POKE - 16300,0: GOTO 

160 

310 IF A$ = "S" THEN GOTO 59000 
320 IF A$ = "E" THEN TEXT : HOME 
: END 

330 IF A$ = "C" THEN HGR : HCOLOR= 
C: POKE 49234,0: GOTO 160 

340 IF A$ = "T" THEN POKE - 16 


300,0:GG = 0: HOME : GOSUB 1 
0000: TEXT : GOTO 160 

350 IF A$ = "H" THEN GOTO 4900 
999 GOTO 160 


2502 IF X > 279 THEN X = 279 
4900 POKE - 16204,0: HCOLOR= C: 
POKE 49234,0: GOTO 160 

5000 Y$ = Y% - 1: IF Y% < O THEN 
Y2 = 0 

5010 GOSUB 20000: GOTO 160 

5030 Y$ = Y&@ + 1: IF Y% > 191 THEN 
Y = 191 

5040 GOSUB 20000: GOTO 160 

5060 xX = X% - 1: IF X% < 0 THEN 
xt = 0 

5070 GOSUB 20000: GOTO 160 

5090 X% = X% + 1: IF X% > 279 THEN 
X% = 279 

5100 GOSUB 20000: GOTO 160 

5120 x = X%¢ - 1:¥8 = Y$ - 1 

5130 IF X% < 0 THEN X% = 0 

5140 IF Y% < 0 THEN Y$% = 0 

5150 GOSUB 20000 

5160 GOTO 160 

5170 X% = X% + 1:Y¥%8 = Y$ - 1 

5180 IF X% > 279 THEN X% = 279 
5185 IF Y% < 0 THEN Y% = 0 

5190 GOSUB 20000 

5200 GOTO 160 

5210 x& = x8 + 1:¥8 = ¥¥ +1 

5220 IF X% > 279 THEN X% = 279 
5230 IF Y% > 191 THEN Y% = 191 
5240 GOSUB 20000 

5250 GOTO 160 

5260 X% = X$¢ - 1:¥8 = Y8S +1 
5270 IF X% < 0 THEN X% = 0 

5280 IF Y$ > 279 THEN Y% = 191 
5290 GOSUB 20000 

5300 GOTO 160 

5400 INPUT A$ 

5410 IF VAL (A$) = 0 THEN GOTO 
160 

5420 X = VAL (AS) 

5422 IF X = - 999 THEN 160 
5425 HCOLOR= 0 

5430 -FOR Y = IC TO IC - X + 1 STEP 


= 1 


5433. IF X1%(IC) = 999 THEN GOTO 
5475 
5438 IF X1$(IC) > 299 THEN X18(I 


C) = X18(IC) - 300:Y18(IC) = 
Y1¢(IC) - 300: HPLOT X1%(IC - 
1),Y18(IC - 1) TO X1%(IC),¥1 
$(IC): GOTO 5455 

5440 X% = X18(IC):Y% = Y18(IC) 
5450 HPLOT X%,Y% 

5455 X18(IC) = 999:Y1%(IC) = 999 
5460 IC = IC - 1: IF IC = 0 THEN 
Ic = 300 

5470 NEXT 

5475 HCOLOR= C 

5480 GOTO 160 

6000 HOME 

6010 HTAB 1l: PRINT "SCREEN COMM 
ANDS" 

6020 HTAB ll: PRINT "== 
ee " 


6030 HTAB 5: PRINT "SCREEN PLOT 
COMMANDS : * 

6040 HTAB 5: PRINT "1) U = PLOT 
up" 


6050 HTAB 5: PRINT "2) R = PLOT 
RIGHT" 

6060 HTAB 5: PRINT "3) D = PLOT 
DOWN" ; 
6070 HTAB 5: PRINT "4) L = PLOT 
LEFT" 

6080 HTAB 5: PRINT "5) 1 = PLOT 
ANGLE UP/LEFT" 

6090 HTAB 5: PRINT "6) 2 = PLOT 


ANGLE UP/RIGHT" 

6100 HTAB 5: PRINT "7) 3 = PLOT 
ANGLE DOWN/RIGHT" 

6110 HTAB 5: PRINT "8) 4 = PLOT 
ANGLE DOWN/LEFT" 


6115 HTAB 5: PRINT "COLOR COMMAN 
Ds:" 
6120 HTAB 5: PRINT "1) W = WHITE 


2) G = GREEN" 
6140 HTAB 5: PRINT "3) V 
fT 4) B = BLACK" 


VIOLE 


6160 HTAB 5: PRINT "MISC COMMAND 
s:" 
6170 HTAB 5: PRINT "1) H = HELP( 


LIST COMMANDS)" 

6180 HTAB 5: PRINT "2) <- = (LEF 
T ARROW) DELETE PREV-" 

6190 HTAB 14: PRINT "IOUS PLOTS. 
REQUIRES A ": HTAB 14: PRINT 
"NUMBER BETWEEN 1 -300" 
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6200 HTAB 14: PRINT "FOLLOWED BY 
A RETURN." 

6210 HTAB 14: PRINT "(I.E. <- 17 
<RET> )": HTAB 14: PRINT "D 

ELETES LAST 17 PLOTS." 

6212 HTAB 5: PRINT "3) P = POSIT 
ION(I.E.P 2,4<RET>)" 


6215 TEXT 

6220 VTAB 24: INPUT "<RETURN>";A 
NS$ 

6230 HOME 

6240 PRINT "LINE AND BLOCK CONMA 
NDS:" 

6250 HTAB 5: PRINT "1) M = MAKE 


A LINE. MUST BE" 

6260 HTAB 8: PRINT "FOLLOWED BY 

THE END OF LINE X,Y" 

6270 HTAB 8: PRINT "COORDINATES. 
I.E. M187,122<RET>" 

6280 HTAB 5: PRINT "2) C = COLOR 
AN AREA. MUST BE FOL-" 

6290 HTAB 8: PRINT "LOWED BY A N 

O. OF LINE REPEATS" 

6300. HTAB 8: PRINT "AND A RETURN 
« THEN SPECIFY THE" 

6310 HTAB 8: PRINT "ENDING X AND 
Y COORDINATES AND" 

6320 HTAB 8: PRINT "RETURN. I.E. 
C12<RET>140,50<RET>" 

6330 HTAB, 8: PRINT "IF THE LAST 
POINT WAS i 

6340 HTAB 8: PRINT "LOCATION X=8 
0 AND Y=50, THE" 

6350 HTAB 8: PRINT "ABOVE EXAMPL 
E WOULD PLOT A" 

6360 HTAB 8: PRINT "RECTANGLE FR 
OM X 80 TO 140" 

6370 HTAB 8: PRINT "AND Y50 TO 6 
2. 

6371 HTAB 5: PRINT "3) # = CREAT 
E A RECTANGLE. USE" 

6372 HTAB 8: PRINT "POSITION COM 

MAND TO SPECIFY" 

6373 HTAB 8: PRINT "UPPER LEFT A 

ND LOWER RIGHT" 

6374 HTAB 8: PRINT "COORDINATES. 
THEN '#' WILL DO" 

6375 HTAB 8: PRINT "THE REST. I. 

E. P10,20<RET>" 

6376 HTAB 8: PRINT "P30,40<RET># 
WILL DO A SQUARE." 

6377 VTAB 24: INPUT "<RETURN>";A 

NS$: HOME 


6380 PRINT : PRINT "SHORTCUTS: (M 
AND C ONLY) :" 

6390 HTAB 5: PRINT "WHEN USING E 

ITHER OF THESE" 

6400 HTAB 5: PRINT “COMMANDS, TO 
DUPLICATE THE CURRENT" 

6410 HTAB 5: PRINT "X OR Y COORD 

INATE, ENTER A -1" 

6420 HTAB 5: PRINT "INSTEAD OF T 

HE ACTUAL LOCATION. 

6430 HTAB 5: PRINT "I.E. M140,-1 

<RET> WOULD DRAW A" 

6440 HTAB 5: PRINT “HORIZONTAL L 

INE, M-1,160 WOULD" 

6450 HTAB 5: PRINT "DRAW A VERTI 

CAL LINE." 

6455 HTAB 5 

6460 PRINT : PRINT “WHEN USING T 

HESE COMMANDS YOU MAY" 

6470 HTAB 5: PRINT "LOSE YOUR PL 

ACE AND NOT BE SURE" 

6480 HTAB 5: PRINT "WHAT RESPONS 

E THE COMPUTER IS " 

6490 HTAB 5: PRINT "WAITING FOR. 
IF YOU ENTER <RET>" 

6500 HTAB 5: PRINT "-999,-999<RE 

T> THE CURRENT COMMAND" 

6510 HTAB 5: PRINT "WILL BE CANC 
ELLED." 

6900 VTAB 24: INPUT "<RETURN>";A 

Ns$ 

6990 GOTO 4900 

10000 REM 

10010 HOME : HTAB 11 

10020 PRINT "LIST OF COMMANDS" 
10030 
10040 
10045 
10050 
ANDS" 
10055 
10057 
10060 
APE" 
10070 HTAB 5 

10080 PRINT "2)ESC S-SAVE CURREN 
T SHAPE" 

10082 HTAB 5 

10084 PRINT "3)ESC C-CLEAR CURRE 
NT SCREEN" 

10090 HTAB 5 

10094 PRINT "4)ESC E-END PROGRAM 
Py 


VTAB 4: PRINT "MASTER COMM 


PRINT 
HTAB 5 
PRINT "1)ESC L=LOAD OLD SH 
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10097 
10100 
10110 
10120 


HTAB 5 
PRINT "5)ESC T-TEXT MODE" 
HTAB 5 
PRINT "6)ESC H-HIRES MODE" 


10121 HTAB 5: PRINT "7)ESC G-HIR 
ES GUIDE GRID (ON/OFF)" 

10122 HTAB 11: PRINT "(GRID IS E 
ACH 20 PLOT POS'NS)" 

10123 VTAB 23: PRINT “CURRENT PL 
OT POSITION X=";x¢;" y="; 

Ys 

10130 RETURN 

20000 HPLOT x%,Y% 

20003 IC = IC + 1: IF IC > 300 THEN 
Ic =1 

20005 X18(IC) = x$:Y18(IC) = ys 
20010 RETURN 


24000 IF X1%(IC) = = 999 THEN GOTO 
160 
24010 IF IC = 1 AND X1%(300) = - 


999 THEN GOTO 160 


24020 IF IC = 1 THEN 24031 
24023 IF X18(IC ~ 1) = = 999 THEN 
160 


24031 H8(1) = X18(IC - 1):H8(2) = 
Y18(IC - 1):H$(3) = X18(IC): 
H8(4) = Y1$(IC = 1):H$(5) = 

X18 (IC) :H8(6) © Y1%(IC) 

24033 H8(7) = x1g(IC - 1)+H(8) = 
Y1S(IC):H8(9) = X1$(IC - 1): 
H&(10) = y1¢(Ic = 1) 

24035 FOR Z = 2 TO 8 STEP 2 
24036 X% = H$(Z = 1):Y% = H8(Z): GOSUB 
20000 

24037 RE = 1:X = H8(Z + 1):¥ = Hg 
(Z + 2): GOSUB 25030 


24038 NEXT 

24090 GOTO 160 

25000 REM PLOT A LINE 

25010 INPUT x,¥ 

25011 IF X= = 999 ORY - 99 
9 THEN 160 

25030 IF X > 279 THEN X = 279 
25040 IF Y > 191 THEN Y = 191 


25045 X$ = X18(IC):¥% = Y18(IC): IF 
X% > 299 THEN X% = X% - 300 


25046 IF Y% > 299 THEN Y$ = yg - 
300 

25047 GOsUB 20003 

25048 IF X > = 1 THEN X% =X 
25049 IF Y > ~ 1 THEN Y% = Y 
25060 HPLOT TO X%,Y% 


25070 X% = X% + 300:¥8 = Y% + 300 


25080 
25085 


GOSUB 20003 

X% = X% - 300:Y% = Y% - 300 
25088 
25090 
26000 
26010 
26011 
26012 
26020 
26030 


IF RE > 0 THEN RETURN 
GOTO 160 

REM COLOR AN AREA 
INPUT RE 

IF RE = - 999 THEN 160 
OX% = X%:OY$ = YS 
GOSUB 25000 
RE = RE - 1: IF RE = 
GOTO 160 : 
26040 OY% = OY$ + 1:Y% = OY%: IF 
Y% > 191 THEN Y% = 191 

26044 X% = OX% 

26049 Y = OY% 

26050 GOSUB 20000: GOSUB 25030: GOTO 
26030 
30000 
30010 
30011 
9 THEN 
30020 
30022 


< 1 THEN 


REM 

INPUT X,Y 

IF X = - 999 ORY = - 99 
160 

IF X > 279 THEN 
IF X < 0 THEN X 
30030 IF Y < 0 THEN Y 
30040 IF Y > 191 THEN 
30050 X% = X:Y% = Y 
30060 GOSUB 20000: GOTO 
59000 REM SAVE FILE 
59010 TEXT : HOME 

59011 REM 

59020 VTAB 5: HTAB 7 
59030 PRINT "ENTER SAVE FILE NAM 
E" 

59040 HTAB 7: INPUT "==>";ANS$ 
59050 PRINT D$;"BSAVE ";ANS$;",A 
$2000,L$2000" 

59060 A$ = "T": GOTO 340 


Ken XS 
noon 


60000 REM LOAD 

60010 TEXT : HOME 

60020 VTAB 5: HTAB 7 

60030 PRINT "ENTER INPUT FILE NA 
ME" : 

60040 HTAB 7: INPUT "==>";ANS$ 
60050 PRINT D$;"BLOAD ";ANS$;",A 
$2000" 

60060 A$ = "T": GOTO 340 


61000 COLOR= 7: HPLOT 19,0 70 19 
7189: HPLOT 39,0 TO 39,189: HPLOT 
59,0 TO 59,189: HPLOT 79,0 TO 
79,189 
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61010 HPLOT 99,0 TO 99,189: HPLOT 
119,0 TO 119,189: HPLOT 139, 
0 TO 139,189: HPLOT 159,0 TO 
159,189: HPLOT 179,0 TO 179, 
189: HPLOT 199,0 TO 199,189 
61020 HPLOT 219,0 TO 219,189: HPLOT 
239,0 TO 239,189: HPLOT 259, 
0 TO 259,189: HPLOT 0,19 TO 
279,19: HPLOT 0,39 TO 279,39 
2: HPLOT 0,59 TO 279,59 
61030 HPLOT 0,79 TO 279,79: HPLOT 
0,99 TO 279,99: HPLOT 0,119 TO 
279,119: HPLOT 0,139 TO 279, 
139: HPLOT 0,159 TO 279,159: 
HPLOT 0,179 TO 279,179 
61040 RETURN 
62000 VTAB 4: HTAB 5: INVERSE : PRINT 
" 

": HTAB 5: PRINT " ";: HTAB 
34: PRINT " " 
62010 HTAB 5: PRINT " ";: HTAB 3 
4: PRINT" " 
62020 HTAB 5: PRINT " ";: HTAB 3 
4: PRINT " ": HTAB 5: PRINT 
" "s: HTAB 34: PRINT " ": HTAB 
5: PRINT " ";: HTAB 34: PRINT 
" "; HTAB 5: PRINT " 

" 

62040 NORMAL : VTAB 6: HTAB 14: PRINT 
"HIRES SCREEN";: HTAB 13: VTAB 
7: PRINT "CREATE PROGRAM";: VTAB 
8 


62050 HTAB 10: PRINT "(C) BY BRU 
CE BARBER";: VTAB 12: HTAB 7 

: PRINT "NONCOMMERCIAL DISTR 
IBUTION": HTAB 13: PRINT "IS 
ACCEPTABLE" 

62060 VTAB 15: PRINT "THIS PROGR 
AM WILL CREATE HIGH RESOLU-" 

: PRINT "TION GRAPHIC SCREEN 

S FOR USE AS SIGNS": PRINT " 

OR BACKGROUNDS FOR HIRES GAM 

ES, IN" 

62070 PRINT "AFFECT THIS IS THE 
POOR MANS GRAPHICS": PRINT " 

PAD. THE PROGRAM IS SELF DO 

CUMENTING.": PRINT "AT ANY T 

IME PRESS 'H' FOR HELP ON": PRINT 
"COMMANDS. PROGRAM MUST BE R 
ELOADED" 

62071 PRINT "FOR EACH EXECUTION 

SINCE SOME CODE IS": PRINT " 

DESTROYED BY RUNNING IT." 

62080 FOR X = 1 TO 300:x18(X) = 

999:Y1%(X) = 999: NEXT : VTAB 

24: INPUT "<RETURN>";ANS$ 

62090 RETURN 
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K<«< DOS 3.2 DISASSEMBLY >>> 


We continue in this issue our fifth installment of Lee 
Meador's excellent series on the Disk Operating System, as 
originally published in the "Fort Worth Apple Users Group 
Newsletter." Lee is thinking of preparing a technical 
booklet on Apple DOS, with these studies as the core. 
Comments, errors noted and suggestions can be directed to 
him at 1401 Hillcrest Drive, Arlington, TX 76010. 


Newsletter 


, Newsletter for the Fort Worth area Apple Users Group 


Vol 1, Number 7 


15 March 1980 


Disassembly of DOS 3.2 
by Lee Meador 


This menths installment of the DOS disassembly 
has the commented disassembly of the six routines 
that RWTS calls. 


PRENIBL — Converts 2 page (256 bytes) of real 
bytes into S-hit nibbles. The nibblec take up 410 
bytes of memory, 

WRITE — Take the 410 nibbles and write them to 
the disk at its current position. They form one sec- 
tor. The S-bit nibbles are converted to & bit “dis 
bytes immediately before being written. (A more 
ca:nplete expiaination of these is given below.) Each 
nibble is Exctusive-Ored with the previous nibble 
before being converted and a checksum byte is put at 
the end. The first three bytes are $DS, SAA and SAD 
to signal the start of the data in the sector. The last 
three bytes are SDA SAA and SEB to signal the end 
of sector. 

READ — Read the nibbles off the disk. First, find 
SDS, SAA and SAD at the start of the data portion 
of the next disk sector. Then read the 410 “disk” 
bytes and convert to S-bit nibbles as they are put into” 
the nibble buffer. Check the checksum and the $DA 
and SAA at the end to make sure we read correctly. 

READADR — Read what is on the disk until a 
sector header is found. It is marked by SDS, SAA 
and $BS. Then read the Volumn number, track 
number and sector number from the sector header. 
Then check the checksum and find the SDE and 
SAA on the end to be sure we got it right. The vol. 
trk and sect are passed back to RWTS w 
them to find the sector it needs to read or write. 

POSTNIBL — Convert a buffer of 5-bit nibbles 
to real bytes and “tore into a page of memory. 

SEEKABS — Move the reau head to the specified 
track. This routine assumes that the current track in- 
formation is correct. As we move it delays the cor- 
rect amounts to make sure the head got to where we 
wani it. 


The data in the 256 bytes of memory that are be- 
ing written to the disk goes through several transfor- 
mations before getting to the disk surface. First 
PRENIBL converts the 8 bit memory bytes to S-bit 
nibbles and stores them in a buffer at SBBOO to 
$BC99, inclu (5 bits is not usually called a nibble 
but we will define it tha! way for our purposes.) Sa, 
256 bytes are now stored as 410 nibbles. Next 
WRITE exclusive-ors cach nibble with the previous 
one. Then it converts the nibbles to 8 “disk"’bit 
hytes using the table at SBC9A. These bytes have the 
following two properties. 1) Bit 7 is always a one and 
2) there are no two zcro bits together in the byte. So, - 
SAA is okay but $CC isn’t. I call them “‘disk”’ bytes 
to distinguish them from the “‘real”” bytes that are" 
from the 256 byte block of memory. Finally the disk 
bytes are written onto the disk surface. . 

When they are read off the disk they are im- 
mediately converted back to nibbles aad exclusive- 
ored with the previous nibble to get the original nib- 
ble. READ is the routine that does this. The nibbles 
end up in the nibble buffer mentioned above. RWTS 
calls POSTNIBL to convert the nibbles to 256 teal 
bytes and puts them where they need fogo. 

You should look at the Sept-Oct issue for more ine: 
formation on the shuffling the data goes through as - 
it is converted from memory to nibble buffer and 
back. The order is changed quite a bit. This install- 
ment continues the sane naming conventions used in 
that article. 

Next month we will address the disk hardware (all 
puns intended) and tall. about the mini-processor on. 
the disk interface card. This little gem is program- 
med to read the data coming off the disk and convert 
it to parallel data for the Apple II data bus. It also 
converts it going the other way and can inform the 
Apple software whether the diskette is write pro- 
tected or not. We will talk a little about the dif- 
Terence between BASIC and Pascal diskettes and the 
differences between the two P6 ROMs. 
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HHEOOL 

OCLC BPAL 2C, 20, ZE and 2F hold Vol, -Trk, Sect and Chksum in RDAOR 
64/3 GA20 $478 holds current track for SEEKARS 

0478 BA2B . 

6478 BAB? 

0478 BAI 

0478 BASO 

0676 B875 $678 holds slot # of disk ($50. format) 

047% B8C5 Used to take up one more cycle than $27 the page 0 value 


BADD PRENIBL - CONVERT A SECTOR OF REAL BYTES TO RIGHT JUSTIFIED 
3 BIT NIBBLES ($19A -'5 BIT GROUPS, OR 410 DECIMAL). 


BBO00- = A2 32 LOX #432 $33 butes per section 
§362- AO 00 LDY 11800 offset in real bytes (input) 
8804 Bass 
8b04- BL 3E LDA (43E),Y form part 1, section 0 
£006- BF 26 STA $26 {part 2 is in $24) 
3608- — 4A LOR 
RU09- 4A LSk 
UUGA- 4A I.SR 
3608-90 00 BB STA $8800,X part 1, sec 0 is $8B00.BB32 
REOL- CB TINY next real byte 
HNOF- BL 3E LDA ($3E),Y form part 1, section 1 
NBLI- 5 27 STA $27 (part 2 is in $22) 
WWY3- 4A LSR 
HU14~ ah LSR 
LHIS- 4A LSR 
sulé- 9D 33 BB STA 48833, X part tl, sec 1 is $8833.BB65 
Wol9- Ch INY next real byte 
H8in- BI BE LDA = ($39E),Y form fark 1, section 2 
o 85 2A STA 8A (part 2 is in $2A) 
44 LR 
4A LGR 
4A LSR 
YD 44 BB STA $8B44,X part 1,,.sec 2 is $8846.8898 
cs INY next real byte 
W625-- BL 3E LDA = ($3E),Y fora part 1, section 3 
iu27- 4A LSR (part 2 is spread out) 
Us2B- 26 2A ROL $2A bit 0 goes in $2A 
uB2A- 4A LER . 
HHO 26 27 ROL * $27 bit 1 goes in $27 
GH20- 4A LSR 
NA2QE= 26 26 ROL $26 bit 2 goes in $26 
4430- — 9D 99 BB STA $8099%X part 1, sec 3 is in $BB99.BBCB 
u3- CB THY next real byte 
Bl 3E LDA ($3E),Y form part 1, section 4 


an LSR (part 2 is spread out) 
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BB37- = 26 2A ROL $2A bit 0 goes in $2A 

B839- AA LSR 

B83A- 26 27 ROL $27 bit 1 goes in $27 

883C- 4A LSR bit 2 is in the carry 

B83D- 9D CC BB STA  $BBCC,X part 1, sec 4 is in $BBCC.BBFE 

BB40- AS 26 LOA (-) add- bit 2 to $26 

8842- 2A ROL 

B843- 29 1F AND HS1F keep only 5 bits 

B845- 9D 00 BC STA $800, X part 2, sec 0 is in $BC00.BC32 

B848- = AS 27 LDA $27 

BB4A- 29 IF AND SLE keep 5 bits here, too 

B84C- 9D 33 BC STA  $8C33,X part 2, sec 1 is in $8C33.BC65 

BB4F- AS 2A LDA 2A 

BeS1- 29 1F AND GIF keep 5 bits again 

B853- 9D 66 BC STA  $8C44,X part 2, sec 2 is in $BC466.BC98 

B856- CB INY next real byte 

B857- CA DEX back off 1 in each section 

B858- 10 AAY BPL $8804 if not to end of section - loop 

B85A- Bl 3E LDA ($3E),Y get "last byte" 

Be5C- AA TAX save in X 

B85D- 29 07 AND = #$07 keep 3 bits in part 2, sec 3 

B85F- 8D 99 BC STA $8099 (offset is 1) 

B862- = BA TXA 5 high bits are in "last byte” 

B863- 4A LSR 

Ba64- 4A LSR 

B865- 4A LSR 

B866- 8D FF BB STA  $BBFF 

B849- 460 RTS and we are done 

BO6A WRITE - WRITE ALL THE NIBBLES ($19A OF THEM) ONTO THE DISK 

SURFACE. CONVERT EACH TO 8 BIT VALUE FIRST. 

BBéA- 38 SEC set in case of error return 

B86B- BD 8D CO LOA $COBD, X set 06 high 

B86E- BD BE CO LDA = $COBE, X and @7 low to read write protect 

B871- 30 7C BNI $BSEF ++. status (neg. means protected 

B873- 84 27 STIX $27 X is the slot -- save in $27 

8875- BE 78 06 STX $0678 and in Active Peripheral place 
s-- Used to take up cycles ($B88C5 

B878- AD 00 BC LDA = =$BC00 This is the first nibble of part 

B87B- 85 26 STA $26 «+. Save it for FOR ing 

B87D- A? ~FF LDA NSF Write an $FF on the disk (sync) 

B87F- 9D 8F CO STA  $COBF,X set Q7 high (Q6 is already 
+-- to load ACC into Shift Regist 

B882- 1D 8C CO ORA = $COBC, X set Q6 low to start writing on 
e+- the disk surface. This reads 

$FF from the shift register, 

s-- 50 the ACC is unchanged. 

B885- 48 PHA Waste some time to fall into loop 

B8846- 68 PLA ee» at the right time 

0887- EA NOP ++. so Writes are 36 cycles apart 

B888- LOY  H$0A Oo this 10 times (that gives 11 $ 


BB8A BEI 


A0 OA 
1) 
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BaBA- 05-26 
Ba8C- 20 F4 BB 
888F- 89 

8890- DO FE 
B892- A? DS 
U894- 20 F3 BB 
03997-  A? AA 
BAI7- 20 -F3 BB 


AD 
889E- 20 F3 B8 


BBAI— WRITE PART 2 BYTES $99 TI 


$26 
$B8F4 


$R8SA 
"$05 


SBOF3 
HAA 
$BBF3 
SAD 
$B8F3 


BBAI- ... WITH THE NEXT HIGHER 


BUAI- 98 
BGA2Z- AO PA 
B8A4- DO 03 
DBAS BBB? 

BEAS- BF 00 BC 
BBA? BBAA 

REA9- 59 FF BB 
EBAC- AA 


BBAD- BD 9A BC 


BEBO- Ab 27 
§8B2- 9D 8D CO 
BBBS- BD BC CO 


boRB- 88 
BOB9- DO EB 


BOBB- WRITE PART 
BORB- AS 26 


B8BD- EA 
BOBE BBD2 
B86B8E- 59 00 BB 
B8CI- AA 


UBD2- DO EA 
BUD4a- AA 


1, 


TYA 
LOY 
BNE 


HS9A 
$BBA9 


$BC00,Y 
SBBFF,Y 
$BCIA, X 
$27 


$CO8D, X 
$CO8C, X 


$BBAS 


Waste some time (no effect) 

Go write the byte in ACC ($FF) 
Writes are still 36 cycles apart 
less to do 

«2. and loop if any left 

Write a $D5 to signal start of data 
«++ after 34 cycles 

Same as $BGF4 (oaits 2 cycles more) 
Write a $AA as second byte 


Write an $AD as third byte 
+++ $D5 $AA $AD are data header 
++. written 32 cycles apart 


0 $90 IN THAT ORDER (EOR EACH BYTE 
BYTE TO ALLOW ERROR CHECKING 


Set ACC to zero (1st EOR) 
We will write $9A nibbles (part 2) 
Always taken - skip into loop 


ACC gets previous nibble 


FOR with current nibble 

Use this as offset into table 

e+e of disk bytes. The 5-bit nibble 
+++ maps into an\ 8-bit byte that 
++. is suitable for writing. 

X gets the slot 

Write the byte! 

«++ 32 cycles later (1st byte 33) 
+-- (Disk IF writes 1 bit/4 cycles) 
One less byte to do 

Loop if any left 


0 TO $FF IN THAT ORDER 


$26 


$BB00,Y 


$BC9A,X 
$0678 


$CO8D, X 
#CO8C, X 
$BB00,Y 
SBOBE 
SHCIA, X 
$27 
$BBF6 


Get first nibble, part 2 
Wait 2 more cycles 


EOR with current nibble 
Translate to disk surface byte 
a-+ using X as offset 

Get the Slot (use ABS addr to 
«+. make it take 1 cycle longer) 
Write the byte after 32 cycles 


Get current (soon previous) nibble 
Do next byte 

Loop if any left 

Change "last" nibble for writing 
s+. USing X as offset 

Get the slot 

Write byte as checksum (Note: 
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a 


the EOR of a11 the other 
bytes gives this.) 
32 cycles later 


B8DD- A? DE LOA REDE Write $DE in data trailer 
BBDF- 20 F3 88 JSR $B8F3 se» 32 cycles later 
BEE2Z- A? AA LDA HSAA Write $AA 
BSE4- 20 F3 BB JSR = $B9F3 
B8E7- AI EB LDA _HSEB and finally write $EB 
BBE9- 20 F3 BB JSR = $RGF3 TOE $AA $EB is trai 


ar: written 32 cycles apart 
BSEC- _BD 8E CO LDA = $CO8E, x Set @7 low to en writing 


BSEF B871 
BSEF- BD 8C CO LDA $CoBc, x and 06 low (thats 
B8F2- 60 RTS end of Write routine 


B8F3 8874 - ROUTINE TO WAIT A WHILE AND WRITE THE ACC TO DISK 
BEF3 8899 


BOF3 BSE 

‘Ber3 peor 
B8F3 BBE 
B8F3 BSED 

BBF3- 18 cLC wait 2 cycles 
B8F4 B88C - ENTRY HERE DOESN’T WAIT AS LONG 

B8F4- 48, PHA wait 3 cycles 
BaF5- 68 PLA wait 4 cycles 


B8F6 BSDA - ENTRY HERE DOESH’T WAIT AT ALL 

B8F6- 9D 8D CO STA $CO8D, X Write the ACC to the disk 

B8F9- 1D 8C CO ORA $CO8C, xX +++ 7,06 high then @6 low 
60 RTS return - delays 6 cycles too 


B8FD- READ ~ READS THE SECTOR OFF THE DISK. FORMS $19A NIBBLES 
WHICH ARE LEFT JUSTIFIED 


B8FD- AD 20 LOY = =4$20 We must find $D5 within $20 bytes 
BSFF B909 

BSFF- 88 DEY One less chance to find it 

B900- FO 61 BEQ = $8963 If no more chances, error return 
B902 B905 

B902- BD BC CO LDA = $CO8C, x Keep Q6 low, read shift register. 
B905- 10 FB BPL = $B902 If positive, full bute not ready 


since bit 7 is always a one. 
Reads must be more than 12 an 
less than 32 cycles apart. 


8907 B913 

B907 BYIE 

B907- 49:05 EOR $05 See if we got a $D5 

B909- 00 F4 BNE = $B8FF If not, try again 

B908- EA NOP Wait 12 cycles before next try 
B90C BIOF 

890C- BD 8C CO LOA = $CO8C, X Read next byte 

B9OF- 10 FB BPL $8900 eee and try until it is ready 
B911- C9 AA CHP oHSAA Is it an $A 
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H913- DO F2 BNE $8907 If not. try for a $D5 again 

BIIS- AD 9A LOY 449A We will read $9A bytes Later 

917 BIIA 

B917- BD 8C CO LDA = $COBC, X Read next byte 

B91A- 10 FB BPL = 48917 ++ loop until ready 

BYIC- CF AD crip SAD Is it an $AD 

B91E- 0 E7 BNE $8907 If not. try for a $D5 again 


£920- WE FOUND $D5 $AA $AD. THATS THE DATA HEADER. NOW READ PART 
8920- ... 2 OFF DISK. NIBBLES $99 TO $0 IN THAT ORDER. (SEE $8915) 


B920- AF 00 
8922 B932 
8922-88 
£923- —B4 26 
5 B928 
BC 8C CO 
10 FB 
59 00 BA 
A4 26 
99 00 BC 
00 EE 
NOW READ PART 
8934 B944 
8934-84 26 
2936 B939 
59346- BC BC CO 
y 10 FB 
59 00 BA 
AA 26 
997 00 BB 
I. cs 
8944-00 EE 
8945- READ CHECKSUM 
B944 B949 
R9A6- BC AC CO 
nyAg— 10 FB 
B94B- —-—DF 00 BA 
DO 13 
3 
BD 8C Co 
10 FB 
C? DE 
NO OA 
EA 
SA B9SD 
-  §0 8C CO 
10 FB 
BOSF- C9 AA 
R961- FO SC 


LDA = -H$00 We are ready-ing checksum 

DEY ready for current byte 

STY $26 Save offset (we use Y in between) 
LOY  $CO8C, xX Read the byte 

BPL = $A925 +. and loop until read 


EOR  $BAAB-$AB,Y Convert to left justified nibble 
LDY 3246 Get offset into part 2 

STA 48000, Y Put nibble there 

BME = $8922 Loop if YHO 


1, BYTES 0 TO $FF IN THAT ORDER 


STY $26 Set offset to 0 \ 
LOY +%CO8C,x Read the byte 
BPL 4936 +2+ and loop until its ready 


EOR — 4BAAB-$AB,Y Convert to nibble 

LOY = $26 Get offset back into Y 
STA $800, Y «-- and store byte there 
INY Next byte from disk 

BNE = $B934 If any left, loop to read 


BYTE TO SEE IF EVERYTHING SO FAR IS CORRECT 


LDY — $COAC, X Read the byte 


BPL $8945 ++ and lodp until ready 

CHP SBAAB-$AB,Y See if its the same as the last byte 
BNE $8963 If different, error return 

LDA = $C08C,X Read next byte 

AOL &B950 so+ yes, we still loop 

Crip WADE If it is $DE then we are at the 

BME $963 --- end, If not, error return 


HOD Wait 2 cycles 


(DA — $CO8C, X Read next byte 

BPL = $B95A +++ loop til its ready 

CHP SAA If it is $AA (trailer is $DE AA EB) 
BEQ — SU9RF +e. then do successful return 
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IN 


B963 B900 - THIS IS THE ERROR RETURN PLACE. CARRY. SET MEANS ERROR. 
B963 B94E 

B963 B957 

B963 B96E 

B963 BIAA 

B963 B9B3 

B963 B9BD . 

B963- 38 SEC Set it and leave 

B964- 60 RTS : 


B965- READADR ~ READS ADDRESSES ON THE SECTORS OF CURRENT TRACK 
UNTIL IT FINDS A SECTOR. THEN IT RETURNS. 
$2C, $20, $2E AND $2F HOLO CHECKSUM, SECTOR, TRACK AND 
VOLUMN, RESPECTIVELY. CARRY IS SET ON ERROR. 


B965- AD FB LOY = 4$F8 Only $708 bytes will be read 
ees from sFarB to $10000 

B967- 84 26 ~Y STY $26 before error returning 

B969 B977 

B969- CB INY Count one try (low byte) 

B96A- D0 04 BNE $8970 (this is for 16 bit increment) 

896C- ES 26 INC $26 Count one try (high byte) 

B96E- FO FQ BEQ $8963 If to zero, error return 

B970 B96A 

8970 B973 

B970- BD 8C CO LDA = $CoBc. x Read a byte 

B973- 10 FB BPL = $8970 +++ loop til it is formed 

8975 B9B1 

B975 B9BC 

B975- C9 ‘DS CHP $05 Is it a $05 (Address header) 

B977- D0 FO BNE $8969 No? Count this as a miss 

8979- EA NOP Wait 2 extra cycles 

B97A B97) 

897A- BD 8C CO LDA = $COBC, x Read next byte 

B97D- 10 FB BPL = $897A se+ when its ready 

B97F- C9 AA Cre SAA Is it $Aa 

B981- 00 F2 BNE $8975 If not try for $D5 

B983- AD 03 LOY $03 We will read 0-3 later 

6985 B98B 

8985- BD 8C CO LDA $COBC, xX Read third byte 

B788- 10 FB © BPL = $8985 s-- at its leisure 

B9BA- C9 BS CMP HSBS Is it a $85 

B98C- DO E7 BNE 8975 If not, see if its a $D5 

B9BE- WE FOUND ADDRESS HEADER ($D5 AA B5) NOT READ ADDRESS 

B9BE- A? 00 LDA $00 We use this to form checksum 

8990 B9IATZ 

B990- 85 27 STA $27 Keep the checksum in $27 

B992 BI9S 

8992- BD 8C CO LDA = $C08c, x Read a byte (This is done 4 times 

B995- 10 FB BPL = $8992 +e. and wait til its done 


B997- 2A ROL But this is just half of it 
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E998- 85 26 STA $26 Save this half 

E99A B9ID 

e99A- BD BC CO LDA $C0ac, x Read another byte 

699D- «10 FB BPL = $899A ae. keep trying! 

EQ9F- 25 26 AND = $24 Put the halves together 

B9AI- 99 2C 00 STA = $002C,Y Store it away for the caller 
E?A4- 45 27 EOR $27 EOR to form checksum 

B9A6- BB DEY One less to do 

§9A7- 10 E7 BPL $8990 do 3-0 then no more loop 

B9AI- AB TAY See if checksum EOR other stuff 
BPAA- DO B7 BNE = $8943 ee. is zero, If not, error return 
E9AC BIAF 

B BD 8C CO LDA = $COBC, X Read next byte 

G9AF- 10 FB BPL = $B9AC «++ and so forth 

E?B1- C9 DE Chip HéDE See if it is $DE 

B9B3- 00 AE BNE $8963 If not, error return 

LOGS- EA Nop Wait 2 extra cycles 

E96 BIB? 

BIL6- BD 8C CO LDA $CO8C,X Read another byte 

B909- 10 FB BPL = $8986 s+» you guessed it! 

C9BB- CP AA CNP HEAA See if if is AA 

E9B0- 00 Ad BNE = 48963 If not. erro return 

CBF B96t 

E9OF- 18 cLC Carry is clear for this, a 
E9CO- 60 RTS «++ Normal return 


BYC1- POSTNIBL - CONVERT THESE LEFT JUSTIFIED NIBBLES ($19A-5 BIT GROUPS) 
TO REAL BYTES ($100). $3E.3F POINTS TO BUFRER TO PUT THEM. 


BYC1- AZ 32 LOX = #32 X is number of bytes / section 
«++ Start with last nibble in section 

BYC3-_ AD 00 LDY $00 Y is offset into out buffer 

BICS BALO 

B9C5- BD 00 BC LDA — $BC00. X Do part 2, section 0 

6 4A LSR ignore the three low 

S709- 4A LSR +e» order bits 

BICA- 4A LSR 

B9CU- 85 27 STA $27 Keep rightmost bit in $27 

B9CD- 4A LOR «-- and dump it too 

BYCE- BS 26 STA $26 Keep new rightmost bit in $26 

B900- 4A LSR «se. and get rid of it 

69D1- 1D OO BB ORA $BB00,X Add part 2 to part 1, section 0 

6904-91 3E STA (43E),Y And put "real" byte into buffer 

BPD6- CB INY 


Get ready for next byte 
E9D7- BD 33 BC LOA  $8C33,X Now do part2, section 1 


S9DA- AA LSR First, ignore low order bits 

E9DB- 4A LSR two 

E9DC- 4A LSR three 

B9DD- 4A LSR new low order in with bit 

BIDE- 26 27 ROL $27 already in $27 | 
BIEO- 4A LSR the next bit in with the one 

R9EI- 26 26 ROL = $26 ee. already in $26 


89E3- 1D 33 BB ORA = $BB33, X Add part 2 to part 1, section 1 
B9ES- 91 BE STA  ($3E),Y Put new "real" byte into buffer 
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B9EG- CB INY Ready for next byte 
B9E9- BD 46 BC LDA = $BC44.X Do part 2,section 3 
B9EC- 4A LSR Again ignore 3 bits 
B9ED- 4A LSR 
B9EE- 4A LSR 
B9EF- 4A LSR Put new low order in with bits 
B9FO- = 26 27 ROL = $27 «+. already in $27 
B9F2- 4A LSR Same again for the two bits 
B9F3- 26 26 ROL = $26 eee in $26 
B9FS- 10 64 BB ORA = $BB44.X Add part 2 to part 1, section 2 
B9FB- = 91 3E STA ($3E),Y Store into next spot in buffer 
BOFA- C8 INY as before 
BOFB- AS 26 LDA $26 Now use the 3 bits in $26 
B9FD- 29 07 AND $07 «+. to go with part 1, 
BOFF- 10 99 BB ORA = $BB99,X wee section 3 
BAO2- 91 3E STA  ($3E),Y Store into buffer 
BA04- CB INY 
BAOS- AS 27 1 LDA = $27 And lastly use 3 bits in $27 
BAO7- 29 07 AND $07 «e- with part 1, section 4 
BAO?- 1D CC BB ORA = $BBCC.X 
BAOC- 91 3E STA  ($3E),Y Store into buffer 
BAOE- CB INY 
BAOF- CA DEX Back up one byte in each section 
BA1O- 10 B3 BPL = $B9C5 If any are left, then loop 
BA12- AD 99 BC LDA = $BC99 Get "last" nibble, part 2 
8A1I5- 4A LSR Ignore low order 3 bits 
BAlé- 4A LSR 
BAI7- 4A LSR 
BAI8- OD FF BB ORA = $BBFF Add in "last" one, part 1 
BAIB- 91 3E STA ($3E),Y And put in into the buffer 
BAID- 60 RTS Finally, we’re finished 
BAIE- SEEKABS - MOVE HEAD TO TRACK SPECIFIED BY ACC. $478 IS CURRENT. 
BALE- RWTS DOES PHASE OFF FOR ALL FOUR BEFORE CALL 
BALE~ 85 2A STA $20 $2A gets desired track 
BA20- CD 78 04 CHP $0478 Compare to current track 
BA23- FO 59 BEQ = $BA7E If equal, we are through 
BA25- 84 28 STX  $#2B $28 gets the current slot number 
BA27- A? 00 LOA $00 Count loop iterations in $26 
BA29- 85 26 STA $26 es. used calculate wait times 
BA2B BA7S 
BA2B- AD 78 04 LDA $0478 Get the current track 
BA2E~ 85 27 STA $27 Save it for later use 
BA30- 38 SEC Subtract the desired track 
BA31- £5 2A SBC $20 
BA33- FO 42 BEQ = $BA77 If we are there we can leave 
BA3S- BO 07 BCS — $BA3E CS -) current ) desired 

(ie, Result is positive.) 
BA37- 49 - FF EOR HtFF Acc{O. Set Acc= ABS(Acc)-1 
BA39- EE 78 04 INC $0478 Set for next track 
BA3C- 90 05 BCC $BA43 Carry is always clear, just skip 
BASE BA35 
BASE- 49 FE ADC HSFE Carry is set. So, Acc=acc-1. 
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BA40-_ CE 78 04 DEC $0478 Set for next track. 

EA43 BARC 

BAS3- C5 26 CHP 8 $26 Acc = min (Acc, ($26), #$0B) 
EAMS- —-90.:*02 BCC 8 SBAa9 eee : 

EAd7- AS 26 LDA $26 see 

BA4? BASS 

BAA?— CF OC Crp = #$0C 

EA4B- 90 02 BCC $BA4F 


EA4D- AP OB LDA = HSOB 


Acc is now minimum of: 

oe AL H Of tracks to move less 1 
eee B. # of iterations so far 

ee. C. eleven (or $08) 


BA4F BA4B - TURN ON MOTOR WINDING TO STEP HEAD CORRECT DIRECTION 


BA4F- AB TAY Save Acc in Y for table offset 

BASO- AD 78 04 LDA = $0478 Get Next track number (xxxx xxxx) 
EAS3- 29 (03 ‘O N03 Only keep 2 bits 0-3 (0000 00xx) 
BASS- OA ASL Shift left (0000 Oxx0) 
£ASé- 05 28 GRA $28 fidd in the slot number (Osss Oxx0) 
EASG- AA TAX That goes in X to reference right 


BA59- BD 81 CO LOA $COB1,X as» Stot and PHASE-ON number xx 
BASC- BI 90 BA LOA = $890, Get amount of time to wait 
BASF- 20 7F BA JSR SBA7F Go wait that lon 


EA62- AS 27 LOA $27 Calculate Diinse=BFE by using 
BA64 - TURN OFF LAST MOTOR WINDING TO ALLOW HEAD TO FINISH STEPPING 
BAé4- 29:03 AND 103 ++. same formula as above. 
CAd6- OA ASL eee Except use "current" track 
£A67- OS 2B ORA = $28 se. aS basis. 

BAS9- AA TAX 


EAéA- BD BO CO LDA = $C080,X Phase-of f 
DASD- BY 9C BA LDA = $3A9C,Y Get correct amount of time 


BA7O- 20 7F BA JSR $BA7F +e» to wait and wait it out 
BA73- ES 26 INC $26 Count iterations of loop 

BA75- D0 BA BNE = #NA2B Always taken 

BA77 BA33 - WAIT SOME AND RETURN TO CALLER 

BA77- AY FF LDA -HSFF Amount of time to wait (1/4 sec) 
BA79- 20 7F BA JSR = $BA7F Long wait lets head settle ! 
BA7C- AS 2B LOX $28 X gets the slot number back 
BA7E BA23 

BAVE- 60 RTS And we are finished 

EA7F BASF — ROUTINE TO WAIT A LITTLE BIT. ACC HOLD THE LENGTH OF 
EA7F 8A70 THE WAIT. TIME IS IN ROUGHLY 100 MICRO SECOND UNITS 
GAZE BA79 

BA7F BABD 


BA7F- AZ iL LOX H$11 Do this little loop 17. times 
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BA81 BA82 
BABI- CA DEX Just count to waste time 
BA82- DO FD BNE $BAB81 
BAB4- ES 46 INC $46 count the total number of the 
BAB6- = 00 02 BNE  $BA8A 100 microsecond units so we 
BABB- £4 47 INC $47 know if disk is up to speed: 

‘ wes (Called MONTIME in RUTS 

BABA BABS 
BABA- =. 38 SEC The Acc has the number of 100 
BABB- £9 O1 SBC «ASO «+. micrasec. so one less to do 
BABD- -DO FO + BNE $BA7F Loop if any left 
BABF- 40 RTS 
BA90 - Table of Phase-on times to wait 
BA90 BASC 


BA90- 01 30 28 24 20 1E 1D 1¢ 
BA9B- 1C 1C 1C 1¢ 


BAIC - Table bf Phase-off times to wait 
BAC BASD 

BAIC- 70 20 26 22 
BARO- IF 1€ 4D 40 40 ie 46 ae 


BAAB- TABLE OF NIBBLES IN POSITION OF CORRESPONDING DISK BYTE 
(IE. AB-)00, AD-08, AE-)10, AC IS NOT VALID. IN FACT 
ANY BYTE WITH BITS 0,1 OR 2 SET IS NOT VALID) OFFSET 
FROM $BA00. (DISK BYTES ~-) NIBBLES) 


BAAS B92A 
BAAB B93B 
BAAB 8948 


BAF8- 38 3C DB £0 3E EB FO FB 


BBOO B80B ~ PART 1, SECTION 0 MEMORY BUFFER FOR NIBBLES 
BBOO BSBE 

BBOO RECE 

BBOO 8940 

BBOO B9D1 

8B00- -0S = $33 

8833 B814 - PART 1, SECTION 1 

8B33 B9IE3 

BB33- -0S $33 
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BB46 BB21 
BR64 BOFS 
BB46- 

BB99 BB30 
BB9? S9FF 
BB99- 

BBCL B83D 
BBCC BAO? 
BBCC- 

BBFF B866 
BBFF B8A9 
BOFF BAIS 
BOFF- 

BCOO BB45 
8COO 8878 
BCOO B8A6 
BCOO B92F 
8C00 B9CS 


BC33 BB4C 
BC33 B9D7 


8C66 B853 
BC66 AIED 


BC99 BESF 
BC99 BAL2 


PART 1, SECTION 2 


~DS $33 
PART 1, SECTION 3 


-0S $33 


PART 1, SECTION 4 


0S $33 
PART 1, "LAST" BYTE 


PART 2, 


-~DA HO ONE BYTE 


-0S $33 


PART 2, SECTION 1 


~0S 


$33 
PART 2, SECTION 2 


-DS $33 
PART 2, "LAST" BYTE 


«DA #0) ONE BYTE 


SECTION O MEMORY BUFFER FOR NIBBLES 


ACOA- TABLE OF BYTES FOR DISK SURFACE. USED TO CONVERT RIGHT JUSTIFIED 


NIBBLES (5 BITS IM FORM “OOOXXXXX") JUST BEFORE WRITING. 


(NIBBLES ~-) DISK BYTES) 


BCIA BBAD 
BC9A BEC2 
8C9A BEDS 
BC9A- 


AB 
BCAO- B7 BA BI 


8 BD 
BCAB- DA DB DD OE 
BCBO- EE EF F5 Fé 
BCRA- FE FF 


BCBA- I DONT THINK THIS IS EVER USED. BUT HERE IT IS AS DATA AND CODE 
(WHERE IT MAKES CODE) FOR YOUR PERUSAL. 


00 00 


F BS B6 # +-./56 
F D& 07 47: VW 
A EB ED xz, 
AFB FD HR 


Mee 


1C 1 16 0000 00 # ...... 
B? DO 3C AO 05 AC H$-9PC WL 
00 00 00 00 00 00 ".).....- 
OA 02 

0B 03 . 
00 00 . 
00 00 . 
00 00 00 - 


00 00 


00 00 00 00 #IlLIIIE 
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BCCO- THIS CODE MIGHT BE USED DURING MASTER BOOT OR RELOCATE 
BCCO- A4 20 LOY $20 

BCC2- B89 DO 3C LDA = $3CD0, Y The byte loaded is a zero now 
BCC5- Ad 05 LOY $05 aoe its the same as $BCDO 
BCC7- AC OA 3E JP $3E0A This is now $BE0A 


C080 BAGA Phase On (beginning address of 4 spaced every other byte) 
COB1 BAS? Phase OFF (similar to Phase On) 


Q7 Use of @6 and Q7 lines in Disk Interface card 
Read (disk —) shift register) 


lo 
hi - Write (shift register -) disk) 
lo - Sense write protect 
hi - Load shift register from data bus. 
CO8C B882 Set @6 low 

8885 5) 
COBC BSCB 


oe te FWAUG 
CO8C BaF? 
CosBc Hers 


COSC 8917 Newslle reer 


COsD Beee Set @6 high 


6 
COBE B84E Set @7 low 
COBE BBEC 
COBF 887F Set @7 high 
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K<« WANT AND DON'T WANT ADS >>> 


EVER USED A COMPUCOLOR as an RS-232 terminal? Know who can 
repair one? Call Fred Gerlach, 981-4409, if you have or 
you do. 


DI/AN PRINTER. Used and for sale in good condition with 
I/O device and software. Lewis Melton, 981-8866. 


r 


SELL HEATH H-14 DOT MATRIX“ PRINTER, tractor feed, 3 
character sizes (80, 96,.and 132 char/inch.), forms 
control, RS-232 or current loop. New cost from Heath is 
$900. Will sell for $600 firm. Call Mike Kramer, 358-6687 
after 5:00 pm. 


WANT TO BUY A D.C. HAYES MICROMODEM for the Apple. Call 
Pat McGee, 663-6806. 


SELLING MY APPLE II+! 48K, disk, Integer Card, Atashi 19" 
B&W monitor, about 30 diskettes including the Muse 
Super.Text word processor. The works. $1550. Johnny 
Earl, 433-1339 after 6:30 pm. 


SANYO MONITORS AVAILABLE IN GROUP PURCHASE. We need a 
minimum of 6 ordered if we are to get the special prices. 


13" color $430. + tax (30-day delivery) 


oO" B&W 169. " (stock) 4 
12" B&W 200. (8-10 days delivery) 


15"Bé&W 250. . (stock) 


If you are interested contact Ray Essig, 493-9980 or 
497-7165 (evenings). 


BACK ISSUES OF APPLE BARREL are for sale in limited 
quantities! Many of you have inquired about their 
availability. The following back issues can be bought by 
mail for $1.00 each, postpaid: 


no. 5 August, '79 
no. 6 Sept/Oct, '79 
x no. 1 January, '80 
" no. 2. February, '80 
no. 3 Mar/Apr, '80 
no. 4 May, '80 
no. 5 June/July, '80 
no. 6 August, '80 


This is a chance for newer members of HAAUG to catch up on 
programs, news, reviews, etc. Sorry, but there will be NO 
reprints when these are gone. Make checks payable to 
H.A.A.U.G. and send to Apple Barrel; Ed Seeger, Editor; 
4331 Nenana Drive; Houston, TX; 77035. Please allow 10 
days for delivery. 
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